﻿Imports BusinessLogicLayer
Imports BE = BusinessEntities


Partial Class Encuestas_RegistrarEncuesta
    Inherits System.Web.UI.Page

    Dim errores As String
    Dim mensaje As String
    Public Shared encuestas As String

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
            'Fijamos una fecha por defecto 
            cal.SelectedDate = cal.TodaysDate
        End If
    End Sub

    Protected Sub btngrabar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btngrabar.Click
       
        'Instanciamos la clase EncuestaBL
        Dim capanegocios As New EncuestaBL
        'Instancias la entidad EncuestaBE
        Dim objeto As New BE.EncuestaBE

        'Llenas las propiedades
        objeto.tematica = txttematica.Text
        objeto.fechamaxvigencia = cal.SelectedDate
        Dim resultado As String

        resultado = capanegocios.RegistrarEncuesta(objeto)

        Try
            If resultado = "LA ENCUESTA FUE REGISTRADA SATISFACTORIAMENTE" Then
                mensaje = "Se registró la encuesta : " & txttematica.Text & "  con fecha de Vigencia: " & cal.SelectedDate
                Dim script As String = "<script language=Javascript>"
                script += "alert('" & mensaje & "');"
                script += "</script>"
                Page.ClientScript.RegisterStartupScript(Me.GetType(), "script", script)

                lblresultado.Text = "los datos se registraron con éxito"

            Else
                mensaje = "" & resultado
                Dim script As String = "<script language=Javascript>"
                script += "alert('" & mensaje & "');"
                script += "</script>"
                Page.ClientScript.RegisterStartupScript(Me.GetType(), "script", script)

            End If
        Catch ex As Exception
            errores = capanegocios.ChapaError
            Response.Redirect("Errores.aspx?id=" & errores.ToString)
        Finally
            capanegocios = Nothing
            objeto = Nothing
        End Try

    End Sub
End Class
